/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tm / gnus-mime.elc.z / gnus-mime.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 35 3a 31 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:55:12 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 6d 2f 67 |s-20.3/l|isp/tm/g|
|000000a0| 6e 75 73 2d 6d 69 6d 65 | 2e 65 6c 0a 3b 3b 3b 20 |nus-mime|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 67 6e 75 73 2d 6d 69 |(error "|`gnus-mi|
|000001f0| 6d 65 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |me.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))...(by|te-code |
|00000260| 22 c0 c1 21 88 c2 13 c3 | 0c 42 14 c5 0b 21 16 06 |"..!....|.B...!..|
|00000270| c6 0c 42 14 c0 87 22 20 | 5b 72 65 71 75 69 72 65 |..B..." |[require|
|00000280| 20 74 6c 2d 6d 69 73 63 | 20 22 24 49 64 3a 20 67 | tl-misc| "$Id: g|
|00000290| 6e 75 73 2d 6d 69 6d 65 | 2e 65 6c 2c 76 20 30 2e |nus-mime|.el,v 0.|
|000002a0| 31 35 20 31 39 39 37 2f | 30 33 2f 30 37 20 31 35 |15 1997/|03/07 15|
|000002b0| 3a 35 39 3a 33 31 20 6d | 6f 72 69 6f 6b 61 20 45 |:59:31 m|orioka E|
|000002c0| 78 70 20 24 22 20 67 6e | 75 73 2d 6d 69 6d 65 2d |xp $" gn|us-mime-|
|000002d0| 52 43 53 2d 49 44 20 63 | 75 72 72 65 6e 74 2d 6c |RCS-ID c|urrent-l|
|000002e0| 6f 61 64 2d 6c 69 73 74 | 20 67 65 74 2d 76 65 72 |oad-list| get-ver|
|000002f0| 73 69 6f 6e 2d 73 74 72 | 69 6e 67 20 67 6e 75 73 |sion-str|ing gnus|
|00000300| 2d 6d 69 6d 65 2d 76 65 | 72 73 69 6f 6e 5d 20 32 |-mime-ve|rsion] 2|
|00000310| 29 0a 23 40 31 32 38 20 | 2a 49 66 20 6e 6f 6e 2d |).#@128 |*If non-|
|00000320| 6e 69 6c 2c 20 64 6f 20 | 6d 69 6d 65 20 70 72 6f |nil, do |mime pro|
|00000330| 63 65 73 73 69 6e 67 20 | 6f 66 20 61 72 74 69 63 |cessing |of artic|
|00000340| 6c 65 73 2e 0a 54 68 65 | 20 61 72 74 69 63 6c 65 |les..The| article|
|00000350| 73 20 77 69 6c 6c 20 73 | 69 6d 70 6c 79 20 62 65 |s will s|imply be|
|00000360| 20 66 65 64 20 74 6f 20 | 74 68 65 20 66 75 6e 63 | fed to |the func|
|00000370| 74 69 6f 6e 20 67 69 76 | 65 6e 20 62 79 0a 60 67 |tion giv|en by.`g|
|00000380| 6e 75 73 2d 73 68 6f 77 | 2d 6d 69 6d 65 2d 6d 65 |nus-show|-mime-me|
|00000390| 74 68 6f 64 27 2e 1f 0a | 28 64 65 66 76 61 72 20 |thod'...|(defvar |
|000003a0| 67 6e 75 73 2d 73 68 6f | 77 2d 6d 69 6d 65 20 74 |gnus-sho|w-mime t|
|000003b0| 20 28 23 24 20 2e 20 2d | 37 39 32 29 29 0a 23 40 | (#$ . -|792)).#@|
|000003c0| 38 36 20 2a 46 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |86 *Func|tion to |
|000003d0| 70 72 6f 63 65 73 73 20 | 61 20 4d 49 4d 45 20 6d |process |a MIME m|
|000003e0| 65 73 73 61 67 65 2e 0a | 54 68 65 20 66 75 6e 63 |essage..|The func|
|000003f0| 74 69 6f 6e 20 69 73 20 | 63 61 6c 6c 65 64 20 66 |tion is |called f|
|00000400| 72 6f 6d 20 74 68 65 20 | 61 72 74 69 63 6c 65 20 |rom the |article |
|00000410| 62 75 66 66 65 72 2e 1f | 0a 28 64 65 66 76 61 72 |buffer..|.(defvar|
|00000420| 20 67 6e 75 73 2d 73 68 | 6f 77 2d 6d 69 6d 65 2d | gnus-sh|ow-mime-|
|00000430| 6d 65 74 68 6f 64 20 27 | 67 6e 75 73 2d 61 72 74 |method '|gnus-art|
|00000440| 69 63 6c 65 2d 70 72 65 | 76 69 65 77 2d 6d 69 6d |icle-pre|view-mim|
|00000450| 65 2d 6d 65 73 73 61 67 | 65 20 28 23 24 20 2e 20 |e-messag|e (#$ . |
|00000460| 2d 39 36 33 29 29 0a 23 | 40 39 31 20 2a 46 75 6e |-963)).#|@91 *Fun|
|00000470| 63 74 69 6f 6e 20 74 6f | 20 64 65 63 6f 64 65 20 |ction to| decode |
|00000480| 61 20 4d 49 4d 45 20 65 | 6e 63 6f 64 65 64 2d 77 |a MIME e|ncoded-w|
|00000490| 6f 72 64 73 2e 0a 54 68 | 65 20 66 75 6e 63 74 69 |ords..Th|e functi|
|000004a0| 6f 6e 20 69 73 20 63 61 | 6c 6c 65 64 20 66 72 6f |on is ca|lled fro|
|000004b0| 6d 20 74 68 65 20 61 72 | 74 69 63 6c 65 20 62 75 |m the ar|ticle bu|
|000004c0| 66 66 65 72 2e 1f 0a 28 | 64 65 66 76 61 72 20 67 |ffer...(|defvar g|
|000004d0| 6e 75 73 2d 64 65 63 6f | 64 65 2d 65 6e 63 6f 64 |nus-deco|de-encod|
|000004e0| 65 64 2d 77 6f 72 64 2d | 6d 65 74 68 6f 64 20 27 |ed-word-|method '|
|000004f0| 67 6e 75 73 2d 61 72 74 | 69 63 6c 65 2d 64 65 63 |gnus-art|icle-dec|
|00000500| 6f 64 65 2d 65 6e 63 6f | 64 65 64 2d 77 6f 72 64 |ode-enco|ded-word|
|00000510| 20 28 23 24 20 2e 20 2d | 31 31 33 32 29 29 0a 23 | (#$ . -|1132)).#|
|00000520| 40 34 34 20 2a 41 20 68 | 6f 6f 6b 20 63 61 6c 6c |@44 *A h|ook call|
|00000530| 65 64 20 62 65 66 6f 72 | 65 20 70 61 72 73 69 6e |ed befor|e parsin|
|00000540| 67 20 74 68 65 20 68 65 | 61 64 65 72 73 2e 1f 0a |g the he|aders...|
|00000550| 28 64 65 66 76 61 72 20 | 67 6e 75 73 2d 70 61 72 |(defvar |gnus-par|
|00000560| 73 65 2d 68 65 61 64 65 | 72 73 2d 68 6f 6f 6b 20 |se-heade|rs-hook |
|00000570| 27 28 67 6e 75 73 2d 73 | 65 74 2d 73 75 6d 6d 61 |'(gnus-s|et-summa|
|00000580| 72 79 2d 64 65 66 61 75 | 6c 74 2d 63 68 61 72 73 |ry-defau|lt-chars|
|00000590| 65 74 20 67 6e 75 73 2d | 64 65 63 6f 64 65 2d 72 |et gnus-|decode-r|
|000005a0| 66 63 31 35 32 32 29 20 | 28 23 24 20 2e 20 2d 31 |fc1522) |(#$ . -1|
|000005b0| 33 31 36 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |316)).(b|yte-code|
|000005c0| 20 22 c0 c1 21 88 c0 c2 | 21 88 c3 c4 21 88 0d ac | "..!...|!...!...|
|000005d0| 84 c0 c6 21 88 c7 c8 c9 | 5c 22 88 c7 ca cb 5c 22 |...!....|\"....\"|
|000005e0| 88 cc cd 21 87 22 20 5b | 72 65 71 75 69 72 65 20 |...!." [|require |
|000005f0| 67 6e 75 73 20 67 6e 75 | 73 2d 63 68 61 72 73 65 |gnus gnu|s-charse|
|00000600| 74 20 70 72 6f 76 69 64 | 65 20 67 6e 75 73 2d 6d |t provid|e gnus-m|
|00000610| 69 6d 65 20 67 6e 75 73 | 2d 69 73 2d 72 65 64 2d |ime gnus|-is-red-|
|00000620| 67 6e 75 73 2d 6f 72 2d | 6c 61 74 65 72 20 67 6e |gnus-or-|later gn|
|00000630| 75 73 2d 6d 69 6d 65 2d | 6f 6c 64 20 63 61 6c 6c |us-mime-|old call|
|00000640| 2d 61 66 74 65 72 2d 6c | 6f 61 64 65 64 20 67 6e |-after-l|oaded gn|
|00000650| 75 73 2d 61 72 74 20 23 | 5b 6e 69 6c 20 22 c0 c1 |us-art #|[nil "..|
|00000660| 21 87 22 20 5b 72 65 71 | 75 69 72 65 20 67 6e 75 |!." [req|uire gnu|
|00000670| 73 2d 61 72 74 2d 6d 69 | 6d 65 5d 20 32 5d 20 67 |s-art-mi|me] 2] g|
|00000680| 6e 75 73 2d 73 75 6d 20 | 23 5b 6e 69 6c 20 22 c0 |nus-sum |#[nil ".|
|00000690| c1 21 87 22 20 5b 72 65 | 71 75 69 72 65 20 67 6e |.!." [re|quire gn|
|000006a0| 75 73 2d 73 75 6d 2d 6d | 69 6d 65 5d 20 32 5d 20 |us-sum-m|ime] 2] |
|000006b0| 72 75 6e 2d 68 6f 6f 6b | 73 20 67 6e 75 73 2d 6d |run-hook|s gnus-m|
|000006c0| 69 6d 65 2d 6c 6f 61 64 | 2d 68 6f 6f 6b 5d 20 33 |ime-load|-hook] 3|
|000006d0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+